home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / memory.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  614 b   |  19 lines
  1.       subroutine memory
  2.       implicit double precision (a-h,o-z)
  3. c spice version 2g.6  sccsid=memmgr 3/15/83
  4.       common /memmgr/ cpyknt,istack(1),lorg,icore,maxcor,maxuse,memavl,
  5.      1   ldval,numblk,loctab,ltab,ifwa,nwoff,ntab,maxmem,memerr,nwd4,
  6.      2   nwd8,nwd16
  7. c spice version 2g.6  sccsid=flags 3/15/83
  8.       common /flags/ iprnta,iprntl,iprntm,iprntn,iprnto,limtim,limpts,
  9.      1   lvlcod,lvltim,itl1,itl2,itl3,itl4,itl5,itl6,igoof,nogo,keof
  10.       if(icore.le.maxmem) go to 10
  11.     5 memerr=4
  12.       return
  13.    10 continue
  14. c
  15. c  set job field length to 'icore+locf(istack(ifwa))'
  16. c
  17.       return
  18.       end
  19.